home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_4949.txt < prev    next >
Text File  |  1988-09-28  |  9KB  |  335 lines

  1. -- card: 4949 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Message Writing
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global lastday
  9.   put lastday into field "laston"
  10.   set locktext of card field "massage" to false
  11.   put the abbrev date into field "now"
  12. end opencard
  13.  
  14. on returnkey
  15.   global port
  16.   get card field "Massage"
  17.   sendSPort port,false,it&return
  18.   wait 1 secs
  19.   Answer "Sign it and send it?" with "Yes" or "Abort" or "Just send"
  20.   if it="Yes" then
  21.     sendSPort port,false,"*$"&return
  22.     wait 20
  23.     sendSPort port,false,"*s"&return
  24.   else if it="Abort" then sendSPort port,false,"*q"&return
  25.   else sendSport port,false,"*s"&return
  26.   go card "Mail Functions"
  27. end returnkey
  28.  
  29. on idle
  30.   put the time into field 4
  31. end idle
  32.  
  33. on closecard
  34.   put empty into card field "massage"
  35. end closecard
  36.  
  37.  
  38. -- part 1 (field)
  39. -- low flags: 00
  40. -- high flags: 0007
  41. -- rect: left=14 top=112 right=302 bottom=504
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: massage
  50. ----- HyperTalk script -----
  51. on mouseup
  52.   global go
  53.   set locktext of me to false
  54.   if go=1 then
  55.     click at the clickLoc
  56.     click at the clickLoc
  57.     put the selection into findword
  58.     if findword <> empty then
  59.       sendSport port,false,findword&return
  60.       ask "Replace "&findword&" with what?"
  61.       put it into replaceword
  62.       sendSPort port,false,replaceword&return
  63.       ask "What lines to affect (format #-#,#,#-)?"
  64.       sendSPort port,false,it&return
  65.       sendSport port,false,"a"&return
  66.       put replaceword into the selection
  67.     end if
  68.     put 0 into go
  69.   end if
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 2 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=55 top=62 right=111 bottom=448
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 9
  83. -- style flags: 0
  84. -- line height: 12
  85. -- part name: 
  86.  
  87.  
  88. -- part 7 (button)
  89. -- low flags: 00
  90. -- high flags: 8004
  91. -- rect: left=14 top=305 right=327 bottom=114
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Title change
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   global port
  103.   sendSPort port,false,return
  104.   wait 10
  105.   sendSPort port,false,"*"&return
  106.   wait 10
  107.   sendSPort port,false,"t"&return
  108.   ask "What is the new title?"
  109.   sendSPort port,false,it&return
  110.  
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 8 (button)
  116. -- low flags: 00
  117. -- high flags: 8003
  118. -- rect: left=405 top=304 right=326 bottom=505
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Protection
  127. ----- HyperTalk script -----
  128. on mousedown
  129.   global port
  130.   sendSPort port,false,return
  131.   wait 10
  132.   sendSPort port,false,"*"&return
  133.   wait 10
  134.   sendSPort port,false,"p"&return
  135.   put the mouseloc into myPlace
  136.   put item 1 of myPlace into horiz
  137.   put item 2 of myPlace - 10 into vert
  138.   get popupmenu("Contract Message;Make deleteable or undeleteble;Password;None",4,vert,horiz)
  139.   if it = 1 then sendSPort port,false,"c"&return
  140.   if it = 2 then sendSPort port,false,"m"&return
  141.   if it = 3 then sendSPort port,false,"p"&return
  142.   else sendSPort port,false,"a"&return
  143. end mousedown
  144.  
  145.  
  146.  
  147. -- part 9 (button)
  148. -- low flags: 00
  149. -- high flags: 0000
  150. -- rect: left=54 top=31 right=68 bottom=90
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 21060 / 21060
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: New Button
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   show card field "info"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 11 (button)
  167. -- low flags: 00
  168. -- high flags: 8004
  169. -- rect: left=409 top=88 right=110 bottom=509
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Import Text
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   import("card field 1")
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 12 (button)
  186. -- low flags: 00
  187. -- high flags: 8004
  188. -- rect: left=5 top=3 right=29 bottom=79
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Quit/Done
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   go to card "Mail Functions"
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 14 (field)
  205. -- low flags: 80
  206. -- high flags: 0004
  207. -- rect: left=52 top=138 right=253 bottom=460
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 3
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: addition
  216.  
  217.  
  218. -- part 15 (button)
  219. -- low flags: 80
  220. -- high flags: 8004
  221. -- rect: left=399 top=223 right=247 bottom=452
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Send
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   global port
  233.   get card field "addition"
  234.   sendSport port,false,it&return
  235.   put return&it after card field "massage"
  236.   hide card field "addition"
  237.   hide button "send"
  238.   put empty into card field "addition"
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 16 (field)
  244. -- low flags: 81
  245. -- high flags: 0007
  246. -- rect: left=55 top=62 right=282 bottom=448
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 3
  251. -- text size: 9
  252. -- style flags: 0
  253. -- line height: 12
  254. -- part name: info
  255. ----- HyperTalk script -----
  256. on mouseup
  257.   hide card field "info"
  258. end mouseup
  259.  
  260.  
  261. -- part contents for card part 2
  262. ----- text -----
  263. Enter your message here.  Type return when you are done the WHOLE MESSAGE.  Certain features in the board, such as CREATING you're signature cannot be done from this stack, and must be done on line using a normal terminal program. 
  264. Click the cursor here before hitting return.
  265.  
  266. -- part contents for background part 1
  267. ----- text -----
  268.  
  269.  
  270.  
  271.  
  272.  
  273. Tue, Jul 5, 1988, 5:59 PM
  274.  
  275. -- part contents for background part 4
  276. ----- text -----
  277. Thu, Sep 22, 1988
  278.  
  279. -- part contents for background part 5
  280. ----- text -----
  281. 8:59 PM
  282.  
  283. -- part contents for card part 16
  284. ----- text -----
  285. Protect Message
  286.  
  287. This command allows the user to protect or unprotect his/her message.  
  288. There are two different types of protection for messages.  If the message 
  289. is public, then the user can protect the message by making it a password 
  290. protected message.  Password protected message are only be read by 
  291. superusers, the author of the message, the receiver of the message, and 
  292. anyone else that knows the password of the message.  If the message is 
  293. private, then the message can be protected by making it a contract 
  294. message.  Contract messages are not deleteable by the receiver of the 
  295. message.  Thus, the author of the message can check back on the message 
  296. and determine whether it has been read.  Remember, that this message base 
  297. keeps track of how many times a message has been read.  However, a 
  298. superuser can still read any message no matter how it is protected.  They 
  299. can also delete any message including a contract message even if they are 
  300. the receiver of the message!  DON'T FOOL WITH THOSE SUPER USERS!
  301.  
  302. Private/Public Message
  303. This is also a common type of message.  It is sent to a specific user, or all users, on the board.  Private messages can only be read by the author, receiver, and a super user.
  304.  
  305. Password Message
  306. This message type is very simular to the private message.  With a password message only the author, receiver, super user, or anyone that knows the password for the message can read it.  A password of up to seven characters can be specified.
  307.  
  308. Contract Message
  309. Contract messages are very simular to private messages.  However, they can only be deleted by the author and a super user.  The receiver of the message cannot delete it unless he happens to be a super user.  Finally, the receiver of the message can inspect the message later on to see if it has been read by the receiver.  That information will be shown in the header of the message.
  310.  
  311.          Robert Thurman -- A Modern Day Pioneer
  312.  
  313. By now, you are probably pretty tired of reading this bull pucky, but it 
  314. gets worse.  Robert Thurman is a modern day pioneer of advance programing 
  315. never matched by anyone since his time.  His percision and expertise has 
  316. never nor will be matched by anyone in history.  He also eagerly and 
  317. selflessly gave his gift of programming to make the self centered and 
  318. greedy Red Ryder Host SysOps look good to their worthless users.  Uhhhh, I 
  319. didn't mean to say that, uhhh, I meant to say, Robert Thurman's greatness 
  320. can be summed up in one of his quotes...       "Eat lots of Toast"
  321. Yes, those immortal words shall live forever in the hearts of his users.  
  322. While those immortal words are no longer displayed for all to see, all 
  323. good American people shall remember his words and remember him!
  324.  
  325.               Robert Thurman -- May his toast be ever golden !!!
  326.  
  327. Oh yeah, there's a hidden feature.  If you press Control-X while editing a 
  328. line, then the whole line will be deleted.
  329.  
  330.  
  331.                                THE  END
  332.  
  333. -- part contents for background part 3
  334. ----- text -----
  335. Thu, Sep 22, 1988, 9:08 AM